home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 075 (1990-05)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 075 (1990-05)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / p2c / examples / examples.LZH / p2crc < prev    next >
Text File  |  1990-05-13  |  822b  |  28 lines
  1.  
  2. # Configuration options for translating the p2c examples.
  3.  
  4.  
  5. Language    HP    # All programs are in HP Pascal dialect
  6.  
  7. VarFiles    0    # This helps basic.text's listtokens procedure work
  8.  
  9. UseEnum        0    # Not necessary except to keep Sun's pitpicking
  10.             # compiler happy.
  11.  
  12.  
  13. # These kludges will get basic.c to compile without extra runtime support:
  14. # External procedures:
  15. FuncMacro    hpm_new(p,n) = (*p = Malloc(n))
  16. FuncMacro    hpm_dispose(p,n) = Free(*p)
  17. FuncMacro    misc_getioerrmsg(s,io) = sprintf(s, "I/O Error %d", (int)io)
  18. FuncMacro    misc_printerror(er,io) = printf("Error %d/%d!\n", (int)er, (int)io)
  19. FuncMacro    gotoxy(a,b) = 0
  20. # Functions imported from asm:
  21. FuncMacro    asm_iand(a,b) = (a & b)
  22. FuncMacro    asm_ior(a,b) = (a | b)
  23. # Functions in basic.text; may as well do these, too:
  24. FuncMacro    ixor(a,b) = (a ^ b)
  25. FuncMacro    inot(a) = (~a)
  26.  
  27.  
  28.